home *** CD-ROM | disk | FTP | other *** search
/ 3D Graphics Tutorial Collection / 3D Graphics Tutorial Collection.iso / pc / AMAPI / AMAPI5~1.ZIP / installs / Win / Amapi3D515TE.exe / data1.cab / Common / Macros / invcurv.tcl < prev    next >
Encoding:
Text File  |  2000-08-01  |  431 b   |  23 lines
  1. #SPEC -realnameid 0
  2.  
  3. # messages table
  4. #@@%000@@FR@@Inverser une courbe@@
  5. #@@%000@@US@@Invert a curve@@
  6.  
  7. # no shape
  8. if {[llength [.amapi scene]] == 0} return
  9.  
  10. # it's not a curve
  11. newshape shape [.amapi current]
  12. if {[shape -curve] == 0} return
  13.  
  14. # make a copy of curve
  15. newshape result [move -copy -shape [shape -ref] -move {0 0 0}]
  16.  
  17. # invert curve
  18. result -invert
  19.  
  20. shape -checkout
  21. result -checkout
  22. result -checkin
  23.